home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0493 / TV-F1112.TXT < prev    next >
Text File  |  1993-04-22  |  6KB  |  145 lines
  1. ─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 363 of 534                                                               
  3. From : Michael Nicolai                     2:2401/411.2         20 Apr 93  01:00 
  4. To   : Christopher Turcksin                2:292/608.3                           
  5. Subj : TurboVision F11/F12                                                    
  6. ────────────────────────────────────────────────────────────────────────────────
  7. > Hello there!
  8. > 
  9. > I noticed TurboVision doesn't support the F11 and F12 keys, since it uses 
  10. > the standard DOS/BIOS calls to read the keyboard which doesn't support those 
  11.  
  12. Wrong! See INT 16h.
  13.  
  14. > keys either. However, Borland made it quite easy to implement this 'feature' 
  15. > in our TV apps. The only thing needed to do is override the 
  16. > TProgram.GetKeyEvent method in the app's TMyApplication (or whatever you 
  17. > derived from TApplication) object.
  18. > 
  19. > However, I'm in trouble here since I don't have enough information on the 
  20. > extended keyboard services. So, if someone here would be so kind to supply 
  21. > me with the necessary information, I owe him a beer or two.
  22. > 
  23. > Using the extended keyboard services has one disadvantage, but there's a 
  24. > workaround. It won't run on XT-type machines or AT's with an XT keyboard 
  25. > (are they still around?). The program can detect the presence of an extended 
  26. > keyboard, so if it's not available, it should call the original GetKeyEvent 
  27. > instead. Also, the commands mapped to the F11/F12 keys should also be 
  28. > available using an ALT-F1..10 combination (like in WP, ALT-F4 = F12) ...
  29. > 
  30. > One additional advantage of using the extended keyboard is that you can 
  31. > detect if the key was pressed on the numerical keyboard. Although I think 
  32. > this is possible now too (the scancode is different for the + and the gray +)
  33. > 
  34. > Christopher, TLA Crew Member
  35.  
  36. Since you only program on ATs, use this little function:
  37.  
  38. uses DOS;
  39.  
  40. function Get_Extended_KeyCode : word;
  41. var
  42.  regs : Registers;
  43. begin
  44.  regs.ah := $10;
  45.  intr($16, regs);
  46.  Get_Extended_KeyCode := (regs.ah shl 4) + regs.al;
  47. end;
  48.  
  49. This function waits until a key is pressed.
  50. The upper byte contains the scan code, the lower byte contains the ASCII
  51. code.
  52. If you don't want your program to hang if no key is pressed, use this
  53. funtion to check if any keycode is actually present in the keyboard buffer:
  54.  
  55. uses DOS;
  56.  
  57. function Check_For_Extended_KeyStroke : boolean;  { like KEYPRESSED }
  58. var
  59.  regs : Registers;
  60. begin
  61.  regs.ah := $11;
  62.  intr($16, regs);
  63.  Check_For_Extended_Keystroke := FALSE;
  64.  if ((regs.flags and fzero) = 0) then
  65.   Check_For_Extended_Keystroke := TRUE;
  66. end;
  67.  
  68. After this function returns TRUE, the keycode can be read with
  69. 'Get_Extended_KeyCode'.
  70.  
  71.  
  72. Here are the routines my functions are based on:
  73.  
  74. INTERRUPT 16h - Function 10h
  75. Keyboard - Get enhanced keystroke
  76.  
  77. Purpose: Wait for any keyboard input.
  78. Available on: AT or PS/2 with enhanced keyboard support only.
  79. Restrictions: none.
  80. Registers at call: AH = 10h.
  81. Return Registers: AH = scan code, AL = ASCII code
  82. Details: If no keystroke is available, this function waits until one is
  83.          placed in the keyboard buffer. Unlike function 00h, this function
  84.          does not discard extended keystrokes.
  85. Conflicts: none known.
  86.  
  87.  
  88. INTERRUPT 16h - Function 11h
  89. Keyboard - Check for enhanced keystroke
  90.  
  91. Purpose: Checks for availability of any keyboard input.
  92. Available on: AT or PS/2 with enhanced keyboard only.
  93. Restrictions: none.
  94. Registers at call: AH = 11h
  95. Return Registers: ZF set if no keystroke available
  96.                   ZF clear if keystroke available
  97.                      AH = scan code
  98.                      AL = ASCII code
  99. Details: If a keystroke is available, it is not removed from the keyboard
  100.          buffer. Unlike function 01h, this function does not discard extended
  101.          keystrokes.
  102. conflicts: none known.
  103.  
  104.  
  105. INTERRUPT 16h - Function 12h
  106. Keyboard - Get extended shift states
  107.  
  108. Purpose: Returns all shift-flags information from enhanced keyboards.
  109. Available: AT or PS/2 with enhanced keyboard only.
  110. Restrictions: none.
  111. Registers at call: AH = 12h
  112. Return Registers: AL = shift flags 1 (same as returned by function 02h):
  113.                        bit 7: Insert active
  114.                            6: CapsLock active
  115.                            5: NumLock active
  116.                            4: ScrollLock active
  117.                            3: Alt key pressed (either Alt on 101/102-key
  118.                               keyboard)
  119.                            2: Crtl key pressed (either Ctrl on 101/102-key
  120.                               keyboard)
  121.                            1: left shift key pressed
  122.                            0: right shift key pressed
  123.  
  124.                   AH = shift flags 2:
  125.                        bit 7: SysRq key pressed
  126.                            6: CapsLock pressed
  127.                            5: NumLock pressed
  128.                            4: ScrollLock pressed
  129.                            3: right Alt key prssed
  130.                            2: right Ctrl key pressed
  131.                            1: left Alt key pressed
  132.                            0: left Ctrl key pressed
  133. Details: AL bit 3 is set only for left Alt key on many machines. AH bits 7
  134.          through 4 are always clear on a Compaq SLT/286.
  135. Conflicts: none known.
  136.  
  137.  
  138. So, i hope this will help you.
  139.  
  140. Oh, and since i drink no beer, a coke would be nice. :-)
  141.  
  142.  
  143. Michael : [NICO] : [Whoo haz broquen mei brain-waschaer?]
  144. ~~~~~~~~~~~~~~~~
  145.